home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir36 / bat_form.zip / BAT_FORM.BTM next >
Text File  |  1993-09-02  |  7KB  |  198 lines
  1. @echo off
  2. SET Fore=%_FG^ SET Back=%_BG
  3. If "%@Upper[%1]" == "?" .OR. "%@Upper[%1]" == "H"  .OR. "%@Upper[%1]" == "/H" .OR. %1 == "-H" .OR. "%@Upper[%1]" == "/?" .OR. %1 == "-?" Goto Usage
  4. Set Drive=
  5. Set Size=
  6. Iff "%1" == "A" Then^ Set Drive=a
  7. ElseIff "%1" == "B" Then^ Set Drive=b
  8. ElseIff "%1" == "1" Then^ Set Size=1
  9. ElseIff "%1" == "2" Then^ Set Size=2
  10. ElseIff "%1" == "3" Then^ Set Size=3
  11. ElseIff "%1" == "4" Then^ Set Size=4
  12. ElseIff "%1" == "5" Then^ Set Size=5
  13. ElseIff "%1" == "1.44" Then^ Set Size=1
  14. ElseIff "%1" == "1.2" Then^ Set Size=2
  15. ElseIff "%1" == "720" Then^ Set Size=3
  16. ElseIff "%1" == "360" Then^ Set Size=4
  17. ElseIff "%1" == "2.88" Then^ Set Size=5
  18. ElseIff "%1" == "144" Then^ Set Size=1
  19. ElseIff "%1" == "12" Then^ Set Size=2
  20. ElseIff "%1" == "288" Then^ Set Size=5
  21. EndIff
  22. Iff "%2" == "1" Then^ Set Size=1
  23. ElseIff "%2" == "2" Then^ Set Size=2
  24. ElseIff "%2" == "3" Then^ Set Size=3
  25. ElseIff "%2" == "4" Then^ Set Size=4
  26. ElseIff "%2" == "5" Then^ Set Size=5
  27. ElseIff "%2" == "1.44" Then^ Set Size=1
  28. ElseIff "%2" == "1.2" Then^ Set Size=2
  29. ElseIff "%2" == "720" Then^ Set Size=3
  30. ElseIff "%2" == "360" Then^ Set Size=4
  31. ElseIff "%2" == "2.88" Then^ Set Size=5
  32. ElseIff "%2" == "144" Then^ Set Size=1
  33. ElseIff "%2" == "12" Then^ Set Size=2
  34. ElseIff "%2" == "288" Then^ Set Size=5
  35. ElseIff "%2" == "A" Then^ Set Drive=a
  36. ElseIff "%2" == "B" Then^ Set Drive=b
  37. EndIff
  38.  
  39. rem
  40. rem     Save the current screen color settings, then...
  41. rem     Clear the screen to bright cyan on White and put the initial
  42. rem     screen information on the screen
  43. rem
  44.  
  45. cls Bright Cyan on White border White
  46. Drawbox 09 21 15 60 1 Bright White on Cyan Fill Cyan Shadow
  47. Drawbox 05 25 08 55 4 Bright Cyan  on Blue Fill Blue Shadow
  48. Drawbox 00 30 02 49 2 Bright White on Red  Fill Red Shadow
  49. ScrPut 01 33 Bright White   on Red "
  50. ScrPut 01 34 Bright Yellow  on Red Batch Format
  51. ScrPut 01 46 Bright White   on Red "
  52. ScrPut 06 30 Bright Cyan    on Blue Floppy Drive
  53. ScrPut 06 43        White   on Blue [
  54. ScrPut 06 44 Bright Yellow  on Blue A
  55. ScrPut 06 45        White   on Blue |
  56. ScrPut 06 46 Bright Yellow  on Blue B
  57. ScrPut 06 47        White   on Blue ]
  58. ScrPut 06 48 Bright White   on Blue :
  59. ScrPut 07 32 Bright Cyan    on Blue Floppy Density
  60. ScrPut 07 46 Bright White   on Blue :
  61. ScrPut 10 27 Bright Yellow  on Cyan 1
  62. ScrPut 10 28 Bright Cyan    on Cyan )
  63. ScrPut 10 30        Black   on Cyan 1.44
  64. ScrPut 10 34        Blue    on Cyan M
  65. ScrPut 10 36 Bright Cyan    on Cyan 3½" High Density
  66. ScrPut 11 27 Bright Yellow  on Cyan 2
  67. ScrPut 11 28 Bright Cyan    on Cyan )
  68. ScrPut 11 30        Black   on Cyan 1.2
  69. ScrPut 11 34        Blue    on Cyan M
  70. ScrPut 11 36 Bright Cyan    on Cyan 5¼" High Density
  71. ScrPut 12 27 Bright Yellow  on Cyan 3
  72. ScrPut 12 28 Bright Cyan    on Cyan )
  73. ScrPut 12 31        Black   on Cyan 720
  74. ScrPut 12 34        Blue    on Cyan k
  75. ScrPut 12 36 Bright Cyan    on Cyan 3½" Double Density
  76. ScrPut 13 27 Bright Yellow  on Cyan 4
  77. ScrPut 13 28 Bright Cyan    on Cyan )
  78. ScrPut 13 31        Black   on Cyan 360
  79. ScrPut 13 34        Blue    on Cyan k
  80. ScrPut 13 36 Bright Cyan    on Cyan 5¼" Double Density
  81. ScrPut 14 27 Bright Yellow  on Cyan 5
  82. ScrPut 14 28 Bright Cyan    on Cyan )
  83. ScrPut 14 30        Black   on Cyan 2.88
  84. ScrPut 14 34        Blue    on Cyan M
  85. ScrPut 14 36 Bright Cyan    on Cyan 3½" Extra  Density
  86.  
  87. rem
  88. rem     Position the cursor, erase anything left after the prompts on
  89. rem     the lines, and get the keystrokes in response to the Drive and
  90. rem     Density options...
  91. rem
  92.  
  93. :ReStart
  94.  
  95. If "%Drive" NE "" Goto WhichSize
  96. Color Bright White on Blue
  97. Screen 06 50
  98. Inkey /k"AB[Esc]" %%Drive
  99. If "%Drive" == "" Goto The_End
  100.  
  101. :WhichSize
  102. ScrPut 06 50 Bright Yellow on Blue %@Upper[%Drive]
  103. If "%Size" NE "" Goto SetSize
  104. Color Bright White on Blue
  105. Screen 07 48
  106. Inkey /k"12345[Esc]" %%Size
  107. If "%Size" == "" Goto The_End
  108.  
  109. :SetSize
  110. ScrPut 07 48 Bright Yellow on Blue %@Upper[%Size]
  111. Iff     "%Size" == "1" then
  112.           Set Option=/F:1.44
  113. ElseIff "%Size" == "2" then
  114.           Set Option=/F:1.2
  115. ElseIff "%Size" == "3" then
  116.           Set Option=/F:720
  117. ElseIff "%Size" == "4" then
  118.           Set Option=/F:360
  119. ElseIff "%Size" == "5" then
  120.           Set Option=/F:2.88
  121. Else      Set Option=
  122. EndIff
  123. Color Red on White
  124.  
  125. rem
  126. rem                      The actual FORMAT Loop
  127. rem
  128. rem     Set the color and clear the formatting information display area
  129. rem     of the screen before beginning the actual formatting.  The %?
  130. rem     is the 4Dos variable that holds the result code of the Format
  131. rem     command.  I test this to see whether to loop back to the start
  132. rem     of the batch file or to continue with the formatting.  It will
  133. rem     detect a Control+C interrupt, improper formatting options (3½"
  134. rem     with 1.2M), and such...
  135. rem
  136.  
  137. :DiskFormat
  138.  
  139. Color Red on White
  140. Screen 18 00
  141. Echo 
  142. Echo 
  143. Echo 
  144. Echo 
  145. Echo 
  146. Echo 
  147. Screen 19 00
  148. FORMAT %Drive%: /U %Option% /AUTOTEST
  149. If %? == 0 Goto Okay
  150. Beep 600 4 450 1
  151. Set Drive=
  152. Set Size=
  153. ScrPut 06 50 Bright White on Blue  
  154. ScrPut 07 48 Bright White on Blue  
  155. Goto Restart
  156.  
  157. :Okay
  158. Color Bright Cyan on Blue
  159. Beep 1000 2 900 1 1000 2 900 1 1000 2 900 1
  160. ScrPut 18 00 Blue on White Format Another
  161. ScrPut 18 15 Bright Blinking Yellow on White ?
  162. Color Bright White on White
  163. Screen 18 17
  164. Inkey /k"YN[Enter][Esc]" %%DoIt
  165. If "%DoIt" == "N" Goto Restart
  166. If "%DoIt" == "" Goto The_End
  167. echo A
  168. GoTo DiskFormat
  169.  
  170. rem
  171. rem     The "Exit" area...  Position the cursor below all the formatting
  172. rem     info and end the batch...
  173. rem
  174.  
  175. :The_End
  176. Color %Fore on %Back Border %Back
  177. Screen 24 00
  178. Quit
  179.  
  180. :Usage
  181. Echo. 
  182. Echos Usage: Bat_Form [d|s] [
  183. Echo d|s]
  184. Echo Where: d Is the Floppy Drive, it can be either A or B
  185. Echos        s Is the Size, it can be 1 for 1.44Mb,
  186. Echo  2 for 1.2Mb
  187. Echos          3 for 720k, 4 for 360
  188. Echo k, or 5 for 1.88Mb
  189. Echo       OR you can enter 1.44, 1.2, ....
  190. Echo.
  191. Echo It doesn't matter whether you enter the drive or size first
  192. Echo.
  193. Echo Example: Bat_Form A 2     for a 1.2Mb  floppy in the A: Drive
  194. Echo      or  Bat_Form 1.44 B  for a 1.44Mb floppy in the B: Drive
  195. Echo.
  196. Color %Fore on %Back Border %Back
  197. Quit
  198.